data segment
	buf	db '5792'
	bcd 	db 4 dup(?)
data ends

stack segment stack
	db 200 dup(0)
stack ends

code segment
	assume cs:code, ds:data, ss:stack

start:	mov ax, data
	mov ds, ax
	mov cx, 4
	lea si, buf
	lea di, bcd+3
loop1:	mov al, [si]
	and al, 0fh
	mov [di],al
	inc si
	dec di
	dec cx
	jne loop1
	mov ah, 4ch
	int 21h
code ends
	end start